home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / SlotAdaptor.p < prev    next >
Text File  |  2004-01-31  |  1KB  |  31 lines
  1. pTempVar <- <primitive 110 4 >
  2. <primitive 112 pTempVar 1  " printOn: " \
  3.   #( #[ 16r21 16r20 16rA4 16r81 16r00 16rF2 16r21 16r31 16r81 16r02 16rF2 \
  4.         16r20 16r80 16r03 16r21 16r81 16r04 16rF2 16r21 16r80 16r05 \
  5.         16rF2 16r20 16r21 16r81 16r06 16rF2 16r21 16r37 16r81 16r08 \
  6.         16rF2 16r21 16r20 16r90 16r09 16rA9 16r81 16r08 16rF2 16r21 \
  7.         16r3A 16r81 16r02 16rF2 16rF5] \
  8.     #( #print: $( #nextPut: #target #printOn: #space #printPathOn: \
  9.         'instVarAt: ' #nextPutAll: #forIndex $)  )) >
  10.  
  11. <primitive 112 pTempVar 2  " valueUsingTarget: " \
  12.   #( #[ 16r21 16r5D 16rB6 16rF6 16r09 16r21 16r20 16r90 16r00 16r81 16r01 \
  13.         16rF3 16rF8 16r03 16rF2 16r5D 16rF3 16rF2 16rF5] \
  14.     #( #forIndex #instVarAt:  )) >
  15.  
  16. <primitive 112 pTempVar 3  " setValueUsingTarget:to: " \
  17.   #( #[ 16r21 16r5D 16rB6 16rF6 16r07 16r21 16r20 16r90 16r00 16r22 16r82 \
  18.         16r01 16rF2 16rF5] \
  19.     #( #forIndex #instVarAt:put:  )) >
  20.  
  21. <primitive 112 pTempVar 4  " forIndex: " \
  22.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16rF5] \
  23.     #( #setIndex:  )) >
  24.  
  25. <primitive 98 #SlotAdaptor \
  26.   <primitive 97 #SlotAdaptor #IndexedAdaptor #AmigaTalk:General/SlotAdaptor.st \
  27.    #(  ) \
  28.    #( #printOn: #valueUsingTarget: #setValueUsingTarget:to: #forIndex:  ) \
  29.   pTempVar 3 12 > #ordinary >
  30.  
  31.